﻿Imports MICROFORMA.BEL
Imports MICROFORMA.DAL

Public Class IndiceGrillaBL

    Private _IndiceGrillaDA As IndiceGrillaDA = Nothing

    Function Add(ByVal indiceGrillaBE As IndiceGrillaBE) As String
        Return _IndiceGrillaDA.Add(indiceGrillaBE)
    End Function

    Function Edit(ByVal indiceGrillaBE As IndiceGrillaBE) As String
        Return _IndiceGrillaDA.Edit(indiceGrillaBE)
    End Function

    Function Delete(ByVal idLista As Short) As String
        Return _IndiceGrillaDA.Delete(idLista)
    End Function

    Function List() As DataTable
        Return _IndiceGrillaDA.List()
    End Function

    Sub New()
        _IndiceGrillaDA = New IndiceGrillaDA
    End Sub

End Class
